(perldb-command-name): New variable.

(perldb): Use it.

diff --git a/lisp/gud.el b/lisp/gud.el
index 6c5c1abcdf60c50e1e83bf27c7262d1edbbe9e2b..cbbd4aeb2d923230f4f32e8f173a891161484af1 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -989,6 +989,9 @@ directories if your program contains sources from more than one directory."
       (gud-make-debug-menu)
       buf)))
 
+(defvar perldb-command-name "perl"
+  "File name for executing Perl.")
+
 ;;;###autoload
 (defun perldb (command-line)
   "Run perldb on program FILE in buffer *gud-FILE*.
@@ -998,7 +1001,7 @@ and source-file directory for your debugger."
    (list (read-from-minibuffer "Run perldb (like this): "
                               (if (consp gud-perldb-history)
                                   (car gud-perldb-history)
-                                "perl ")
+                                (concat perldb-command-name " "))
                               nil nil
                               '(gud-perldb-history . 1))))